perm filename LOSS.LSP[AID,LSP] blob sn#807406 filedate 1985-11-22 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	(defun test (n)
C00003 ENDMK
CāŠ—;
(defun test (n)
       (let ((foo ()))
	    (cond ((*catch 'baz
			   (progn
			    (cond ((not foo)(setq foo t)))
			    (od n)))))
	    (print foo)))

(defun od (n)
       (*throw 'baz (zerop (remainder n 2))))

(test 4)
(test 5)
(fasload loss))